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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


nae SOF TWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND corte 
ACCORD oe ANCE WITH THE TERMS OF SUCH iit AND WITH THE 


- 
2 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 
CORPORATION. 


DIGITAL so NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ITHOUT NOTICE 
TAL EQUIPMENT 


Ada PHASES$W_ENTLEN 


v03-025 v0377 26-MAY-1983 11:02:50 


corvect PRASL_ csib” aha” sit "sthee stots that 1. to 
overl ay the récovery unit ID. Add PRA$SW_CSID_ 
and PRA$SW_CSID_SEQ Yate i. PRASL_CSTD. 


v03-024 JSV0304 Joost Verhofstad 23-MAY-1983 
Add PRASL_CSID 


v03-023 JSV0290 Joost Verhofstad 18-MAY-1983 


® 
* 
® 
® 
* 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
® 
*® 
® 
® 
® 
® 


{ 

{++ 

: Facility: JOURNALING : DEFINITION OF INTERNAL FILE FORMATS 

{ Abstract 

{ this module contains the symbolic definitions for non-user accessible 
? file formats. 

{ ==> PLEASE NOTE: 

{ Any time new fields, eteuteeree or entries are defined, concurrent 
{ an es should be made to the dump formatting utility, JCPOMP, 
t allow it to recognize and format them. 

; Author: CJF group Creation Date: 18-FEB-1981 

; Modified by: 

{ v03-027 GJA0059 Greg Awdziewicz 16-Dec-1983 

c Add some comments to JET defs. Add index delimiter. 

§ v03-026 JSV0349 Joost Verhofstad 13-JUL-1983 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 

{ 
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v03-014 


v03-013 


v03-012 
v03-011 
v03-010 
v03-009 


v03-008 
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Add OPT, CJL and RHD 


MKLOO74 Mary Kay Lyons | 06-May-1983 
Add remaster entry symbol definitions. Add symbols for 
for local sequence numbers. 


JSv0230 Joost Verhofstad 27-APR=-1983 
Add RUSYNC bits 
LY0345 Larry Yetto 6-APR-1983 11:00:55 


Y 
Modify NTE structure definition to remove overlays used 
for slave node control structures only. A new structure 
oe, Sam been added to JNLDEFINT.SDL to take care of this 
ask. 


JSVv0191 Joost Verhofstad 14-MAR-1983 
Change PROLSL_FRSTBVBN to PROL$L_BASEVBN 

JSv0153 Joost Verhofstad 18-F EB-1983 
Add JETSC_DCJL 

JSv0150 Joost Verhofstad 17-FEB-1983 
Add fields: PROLSL_FRSTBVBN, PROLSL_DATCNV, 
PROLSL_FRSTSEQN 

JSV0145 Joost Verhofstad 14-F EB-1983 
Add DCJL structure 

J$v0137 Joost Verhofstad 03-FEB-1983 
Replace source, put in null packet 

LY0271 19! an-1983 


ory Yetto ; 
Replace SPARE in CHUNKDEF, the JCP dump journal routine 
needs it. Set NTE journal name length back to 12. 


ROWO154 Ralph 0. Weber i 6-JAN-1983 
Convert MDL to SDL and make SPARE in CHUNKDEF a fill field. 
ponpletety replace NIEDEF with new structure which can be used 
both for file name table entries and for short remote journal 
identifiers on slave nodes before the first journal assign 
channel service is executed. 


Lv0250 Larry Yetto 05-Jan-1983 
Remove FOFSV_PRIM flag 

JSVv0103 Joost Verhofstad 3-DEC-1982 

Add JDB 

GJA0031 Greg Awdziewicz, | 1-Dec-1982 16:38 
Removed JDB$... structure definitions. 

JSv0080 Joost Verhofstad 08-0c t-1982 

Add JABSL_PRCUIC 

JSv0077 Joost Verhofstad 08-0c t-1982 


Add CJL data structure value JETSC_CJL 


ee a a oe 
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\ 

f v03-007 LY0054 Larry Yetto 27-Jul-1982 
t Add ACMODE to NTE 
1 v03-006 JS$v0023 Joost Verhofstad 21-Jul-1982 
{ misc bits and bytes added. Main one: put SEQ NO 
t in CEH and remove from PRA 
¢ v03-005 JAYG002 John A. Ywoskus 21-Jul-1982 
¢ Add CEH field to PHASE structure. 
{ v03-004 JaAyv0001 John A. Ywoskus 20-Jul-1982 
¢ Restore PHASESL_COUNT. 
{ v03-003 LY0046 Larry Yetto 15-Jul-1982 
{ Add MAXREC constant to UTE and NTE Solantt ten 
{ Add JET codes for recovery units and PRAS$B_ENTATR 
{ and PRA$V_COMP Lgree. Change CODE field of PHASE 
¢ structure from $L to $8. 
{ v03-002 JSV014 Joost Verhofstad 7-Jul-1982 
¢ had PROLSL_MASK | 
{ v03-001 LY0031 Larry Yetto 30-Jun-1982 | 
t Add name table entry format (NTE 
{-- 
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module SJETDEF; 


{eee 
/* 
JET = Journal Entry Type 
7 
/* The first ayee of all control entries, after the common 
/* CEH bytes, in the journal file is the 
. record type. This defines the values for this byte. 
/* Some of these values are used for record/entry type and 
/* some are used for block/structure types. This could be a 
/* source of some confusion. Entries are contained within a 
/* journal bucket structure. The major structures always 
. are block structures. 
® 
. The structure types are PROL, BUFHDR, RHD, OPT, CLT, EPIL, and CJL. 
/* The eatery kupss are JAB, USERREC, CHUNK, JDB, MARK, OPJ, UICTBL, 
/* PHASE1, PHASE2, ABORT, COMPLETED, RESIDUAL, CLEANUP, RESET, RUSYNC, 
. DCJL, and RMST. 
w 
/* JABLST and RCH are obsolete. JABLST has been replaced by the 
/* structure type CJL for aage journals and by the entry type DCJL for 
/* disk journals. Specific RU entry types are used instead of the 
. nonspecific RCH type. 
/* ==> Any time new structures or entries are defined, concurrent 
/* changes should be made to the dump formatting utility, JCPDMP, 
. to allow it to recognize and format them. 
e 
[too 
constant ( 
PROL /* prologue 
od /* journal assign block 
- BUFHOR /* buffer header 
e USERREC /* user record 
. CHUNK /* chunk (continuation segment) 
- JDB /* journal deassign block. 
. MARK /* mark point 
- JABLST /* JAB List 
- OPJ /* epene Journal entry 
. RCH /* RU control entry 
. RHD /* Reel header (for tapes) 
» OPT /* open tape entry 
» GLY /* close tape 
, EPIL /* 60; \ogue 
« VICTBL /* UIC table modification record 
. PHASE) /* phasel entry 
» PHASE2 /* phase2 entry 
- ABORT /* abort entry 
- COMPLETED /* entry indicating RU is rolled fw. 
» RESIDUAL /* residual entry 
- CLEANUP /* cleanup entry 
. RESET /* reset entry 


roe 


» RUSYNC 

» SA 

« DCJL 

» HIGH_LIMIT ) 
equals 1 incr2ment 1 


end_module SJETDEF; 
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/* rusyne entry 
/* current JAB List for tapes 
/* current JAB List for disk 
/* remaster journal entry 
/* Any new JET codes should be inserted before this. 
: /* high-end delimiter for indexing the JET codes. 
prefix JET tag $C; 
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module SPROLDEF ; 


{eo 

/* 

SS PROL = Journal Prologue (on disk or tape) 

/* The first block of each disk journal file is used as a prologue 
/* block to contain control information. For tape journals the 

/* ee ew are written as tape blocks. The fields defined for 

“4 a@ prologue block are described here 

{t-< 


aggregate PROLDEF structure prefix PROLS$S; 
CEH_OVERLAY union fill; 


CEH Longword unsigned dimension 5; /* control entry header fields 
CEH_FIELDS structure fill; 
LEN Longword unsigned; /* Length (for tapes) 
JNLID eaaeere unsigned; /* journal ID (for tapes) 
TSIZE wor une toned: /* size record (for tapes) 
STRUCT byte unsigned; /* structure type (for tapes) 
FILL. 1 ar fill prefix PROLDEF tag $$; /* spare (for tapes) 
end CEH_FIELDS; 


end CEH_OVERLAY; 


TYPE byte unsigned; /* record type for prologue 
SIZE byte unsigned; /* prologue size in blocks 
MAJVER byte unsigned; /* major software version number 
MINVER byte unsigned; /* minor software version number 
LINK longword unsigned; /* (in core use only) next proyosue 
NAME character veo 3 . /* journal name (counted ASCII) 
FILL_2 byte dimension 3 fill prefix PROLDEF tag $$; /* spare 
JNL_TYPE byte unsigned; /* journal type ‘ 
COPIES byte unsigned; /* number of copies created (disks only) 
PROT word or 3 f /* protection mask of journal 
DATCRE Longword unsigned dimension 2; /* creation date/time 
DATOPN Longword unsigned dimension 2; /* date/time last opened 
DATCNV Longword unsigned dimension 2; /* date/time a new version was created 
CRECNT Longword yee vanes /* creation count 
UIC Longword unsigned; /* UIC of journal 
FILEXT word unsigned; /* file extend size 
BUFSIZ word unsigned; /* buffer size (in bytes) | 
MAXSIZ word unsigned; /* maximum journal entry size 
ACMODE byte unsigned; /* access mode for journal 
FILL_3 byte fill prefix PROLDEF tag $$; /* spare 
FACCOD word unsigned; /* facility code 
APPLID word unsigned; /* application ID 
*MASK"’ Longword unsigned; /* mask (for AT journals only) 
QUOTA Longvord unsigned; /* quota , for Ru journals only 
FLAGS_OVERLAY union fill; 
FCAGS Longword unsigned; /* flags; maust be same as in JSB 
FLAGS BITS structure fill; 
TAPINL bitfield mask; /* temp journal ; 
SITE bitfield mask; /* (*) installation journal 
CREATE bitfield mask; /* create new file 
CREATE_IF bitfield mask; /* create-if : z 
TMPFIL bitfield mask; /* temporary file: delete on device deletion 


qe 


ti) ey SBNNNANNNNNAN B 
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CREACP bitfield mask; /* create new ACP for this journal 

DIFACP bitfield mask; /* use different ACP (name in JSB) 

REPLACE bitfield mask; /* replace current journal with this 

TAPEDRIVE bitfield mask; /* create journal tape drive (internal) 
end FLAGS_BITS; 


/* marced (*) are used in the prologue 
/* NOTE: do not change JSB independently 
end FLAGS OVERLAY; 

STATUS _OVERLAY union fill; 


STATUS Longword unsigned; /* journal file status 
STATUS BITS structure fill; 
OPEN bitfield mask; /* journal file is opened, not closed 
NORUS bitfield mask; /* if set : no RUES in RUL when journal 
/* closed (RU journals only) 
end STATUS BITS; 
end STATUS_OVERLAY; | 
FRSTSEQN Longword unsigned; /* sequence number first entry in this file 
BASEVBN Longword unsigned; /* VBN first bucket in this journal file 
LASTVBN Longword unsigned; /* VBN Last bucket written (only valid 
/* if journe’ properly closed + used 
/* by ACP for unopened tape journals) 
LASTSEQN Longword unsigned; /* last sequence number used 
FST_VBN ee unsigned; /* VBN first free byte 
FST_OFF word unsigned; /* offset first free byte 
FILC_4 word fill prefix PROLDEF tag $$; /* spare 
PRV_VBN Lonquere unsigned; /* VBN Last chunk 
PRV_OFF word unsigned; /* offset last chunk 
FILC_5 word fill prefix PROLDEF tag $$; /* seery 
PRV_EVBN Longword unsigned; /* VBN last entry 
PRV_EOFF word unsigned; /* offset last entry 
FILC_6 word fill prefix PROLDEF tag $$; /* spare 
LASTAID lenguord unsigned; /* last assign ID used 
constant ‘LENGTH’ equals . prefix PROL$ tag K; /* Length of structure 
constant ‘LENGTH’ equals . prefix PROL$ tag C; /* Length of structure 


end PROLDEF; 
end_module S$PROLDEF ; 


= 


a SBN NAS SRS 
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module SJABDEF ; 


FACCGD 


- JAB = Journal Assign Block 


16-SEP- 


One journal assign block is placed in the i 
whenever the journal is assigned by the $A 


service. 


ASSSEQ EQ Longword junsigned: 


word unsi gne 


NODE byte unsioned _ ee 6; 
UIC lLongword unsigned; 

PID Longword unsigned; 

PRCNAM character ength 16; 
TIME quadword unsigned; 

PROT word unsigned; 

REFCNT word unsigned; 


ACMODE byte unsigned; 


FILL 2 


byte dimension 3 fill prefix 


PRCUIC Longword yinsigned: 
constant ‘‘LENGTH’’ equals . prefix JABS tag K; 
constant “LENGTH equals . prefix JABS tag C; 


end JABDEF ; 
,end_module S$JABDEF ; 


JABDEF tag $$; 
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ournal file 
SJNL or SCREJNL 


/* control entry header fields 
/* tot type to indicate JAB 


par 
/* journal ID for multi-journal tapes 
/* assign 9 number (unique per $SASSJNL per journal) 
/* facility code 
/* host node number of use 
/* UIC used as UIC for entree written 
/* PID of user 
/* Process name 
/* time (standard 64-bit format) 
/* protection mask of SASSJNL 
/* (inclusive) reference count of 
/* writers currently assigned to this 
/* journal. 
/* ony mode of $SASSJNL 


* process UIC 
ength of structure 
/* Length of structure 


1 


~~. S SSSS 
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JDB = Journal Deassign Block 


One journal deassign block is placed in the 


aggregate JDOBDEF structure prefix JDB$; 


ongword unsigned dimension 5; 
TYPE byte unaigre 3 
FILL_1 byte fill prefix JDBDEF tag $$; 
JNLI6 word unsigned; 
ASSSEQ Longword unsigned; 
FACCOD word unsigned; 
NODE byte unsigned dimension 6; 
UIC Longword unsigned; 
PID longword unsigned; 
PRCNAM character length 16; 
TIME compere unsigned dimension 2; 
PROT word unsigned; 
REFCNT word unsigned; 


ACMODE byte unsigned; r 

FILL 2 byte dimension 3 fill prefix JDBDEF tag $$; 
PRCUTC Longyord unsigned; 

constant "‘LENGTH'' equals . prefix JDB$ tag K; 
constant “‘LENGTH’’ equals . prefix JDB$ tag C; 


end JDBDEF ; 
end_module S$JDBDEF ; 


ournal file 
whenever the journal is deassigned by the SDEASJNL or SDELJNL 
service. JABS... field definitions are used for the JDB. 


control entry header fields 
record type to indicate JAB 


spare 
journal ID for multi-journal tapes 


assign sequence number (unique per $SASSJNL per journal) 


facility code 

host node number of user 

UIC used as UIC for entries written 
PID of user 

Process name 

time (standard 64-bit format) 
protection mask of SASSJNL 
(inclusive) reference count of | 
writers currently assigned to this 
journal. 

access mode of $ASSJNL 

spare 

peers yy VIC 

ength of structure 

length of structure 


mgs 


~~ SS SS 


4 
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module SPHASEDEF ; y 
/ 
yp y 
~ PHASE - Phase Marker 7; 
® 
/* When the user does a RUFSPH1_END, RUF SPH2_ END RUF SCANCEL , y 
/* RUFSRESET or a RUF SMA RKPOINT; a phase marker is written / 
os to the RU journal by the ENDRU routine. 4 
ftes 
aggregate PHASEDEF structure prefix PHASES; | a 
longword ne pe dimension 5; /* Control entry header 

CODE byte unsigne /* Phase Code 

ENTLEN word unsigned; /* a ay variable portion 

FILL_1 byte dimension 1 fill eit con ta tag $$;/* Spa 

constant RID equals . prefix PHASES /* offset for RU-ID 

constant RID equals . hes PHASES ton 3 /* offset for RU-ID 

RUID character Length /* Recovery ae ID (all cases) 

COUNT Longword unsigned; /* Journal c 

MARKPT Longword une ned; /* Markpoint. 1D. if RUFSMARKPOINT 


FLAGS OVERLAY union fill; 


FCAGS | BITE str unsigned /* flags longword 
FLAGS BIT structure fiLl; 
ROSYNC bitfield mask; /* RUSYNC expected Later 
end FLAGS BITS; 
end FLAGS OVERLAY; 
constant MLENGTH'" equals . prefix PHASES tag K /* Length of fixed portion 
constant “‘LENGTH’’ equals . prefix PHASES tag C /* Length of fixed portion 
aa POASEDE. byte unsigned; /* Start of area containing names (always at the end!) 


end_module SPHASEDEF ; 
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module SOPJDEF; 


Jee 

/* 

. OPJ = open journal entry 

/* An open-journal entry is written each time the journal file 

. if opened for a journal-creation 

/t-- 

overegete OPJDEF structure prefix OPJ$; 
CEH Longword unsigned dimension 5; /* control entry header 
TYPE byte unsigned; /* type field 
FILL_1 byte fill prefix OPJDEF tag $$; /* spare 
FILL 2 word fill prefix OPJDEF tag $$; /* spare 
constant ‘LENGTH’ equals . prefix opus tag K; /* Length of structure 
constant “‘LENGTH’’ equals . prefix OPJ$ tag C; /* Length of structure 


end OPJDEF ; 
end_module SOPJDEF; 


e 
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=z 


module SRMSTDEF; 


/* RMST = remaster journal entry 


/* A remaster journal entry is written each time the journal file 
/* is opened due to the journal being remastered. 


aggregate RMSTDEF structure prefix RMSTS$; 


ongword unsigned dimension 5; /* control entry header 
TYPE byte une Pre : /* type field 
FILL_1 byte fill prefix RMSTDEF tag $$; /* spare 
FILL.2 word fill prefix RMSTDEF tag $$; /* spare 
constant LENGTH" equals . prefix MST$ tag K; /* Length of structure 
constant “‘LENGTH"’ equals . prefix RMST$ tag C; /* Length of structure 


end RMSTDEF ; 
end_module SRMSTDEF; 


AAA AAAAAAARAAAAAAAAAAAAAAAAAAAAAAABEAER EERE EEE PRR ORO ORONO ORONO ON 
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module SPRADEF ; 


ae PREAMBLE = Journal record preamble 


/* Each user record in the journal file is preceded by a preamble 
/* that describes the entry. 


/* This preamble MUST always have an even Length 


senate” PRADEF structure prefix PRAS; 
LEN word unsigned; /* total Length entry - this word 
/* second word of length; for tapes only 


YPE byte unsigned; /* record type to indicate user reocrd 
TYPE BITS structure fill; 
OSER bitfield mask; /* user entry 
CONTR bitfield mask; /* control entry 
LCHNKS bitfield mask; /* multiple chunks 
FRSTCHNK bitfield mask; /* first chunk 
LSTCHK bitfield mask; /* Last chunk 


NULL bitfield mask; /* null entry 
end TYPE BITS; 
end TYPE_OVERLAY; 


PRALEN byte unsigned; /* preamble Length : 

PRVOFF word unsigned; /* offset previous record in its bucket 
i for RU jnls: offset previous entry by 

* same 

PRVVBN Longword unsigned; /* VBN of bucket with previous entry 
/* for RU jnls: VBN previous entry by 
/* same RU 

SEQNO Longword unsigned; /* sequence number 

LSEQNO Longword uns gned: /* local sequence number 

PRATYPE byte unsigned; /* type field for entry 

ENTATR byte unsigned; /* entry attribute , 

ENTLEN word unsigned; /* Total length user written entry. 

constant RID equals . prefix PRA$ tag K; /* RID starts here. 

constant RID equals . prefix PRA$ tag C; /* RID starts here. 

RIDVAL_OVERLAY union fill; 

RIBVAL quadword unsigned dimension 2; /* RU ID (for RU journals only) 


/* The next subfields are for other than 
/* RU journals 
RID_OVERLAY structure fill; 
MASK 


Longword unsigned; /* mask that user specified on $010 
RUID_LW2 Longword unsigned; /* second longword of RUID 
CSID_UNION union fill ; 
CSID Longword unsigned; /* CSID portion of RUID, : 
/* also used for other journals (Not just RU) 
CSID_OVERLAY structure fill; 
CSID_SEQ word unsigned; /* CSID sequence number 
CSID_IDX word unsigned; /* CSID node index 
end CSID_ OVERLAY; 
end CSID_UNION; 


AAA AAAAAAA AA 
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RUID Lye Lenpeare unsigned; /* Forth lLongword of RUID 


end RID_OVERL 
end RIDVAL_OVERLAY; 


TIME pare unsigned; /* time (standard 64-bit format) 
ASSSE veneuere unsigned; /* assign sequence number (of related JAB) 
FLAGS_OVERLAY union Fill; 
FCAGS word unsigned; /* flags byte 
FLAGS BITS structure fill; 
USERENT bitfield mask /* user written entry 
LTIPLE bitfield mask /* multiple entry 
SEQNOVF bitfield mask; a seq no overflow 
® 
/* The following flags are for RU 
- journal entries only 
RUJNL bitfield mask; /* this is a RU journal entry 
OLLFW bitfield mask; /* roll forward entry 
ROLLBW bitfield mask; /* roll back entry 
FIRST bitfield mask; /* first entry for this RU 
PHASE] bitfield mask; /* phase 1 done 
PHASE2 bitfield mask; /* phase 2 done 
ABORT bitfield mask; /* RU has been aborted 
COMPLETED bitfield mask; /* completed RU 
P2SAB$2 bitfield mask; /* phase2 or abort entry to be | 
/* encountered twice before deletion 
RUSYNCEX bitfield mask; /* rusync expected later 
RUSYNCWR bitfield mask; /* rusync written 
end FLAGS BITS; 
end FLAGS_OVERLAY; ; 
FACCOD word unsigned; /* facility code 
constant “LENGTH equals . prefix PRA$ tag K; /* Length of structure 
constant "LENGTH" equals . prefix PRA$ tag C; /* length of structure 


end PRADEF; 
end_module SPRADEF ; 


14 
JNLFILE.SDL;1 16-SEP~1984 16:40:11 .00 Page 15 


module SCEHDEF ; 


Jee 


/t 
. CONTROL ENTRY HEADER = header of control entries (written using WRITELBLK) 
/* Each control entry in the journal file is preceded by a header 
/* that describes the entry. . 
/* The preamble is longer than this header and its first few fields 
~ are identical to a control entry header 
t 
. This header MUST always have an even length 
[too 
auprepets CEHDEF structure prefix CEHS$; ; 
LEN word unsigned; /* total length entry = this word 
LEN2 word unsigned; /* second word of length; for tapes only 
TYPE_OVERLAY union fill; 
YPE byte unsigned; /* record type to indicate user reocrd 
TYPE BITS structure fill; 
OSER bitfield mask; /* user entry 
CONTR bitfield mask; /* control entry 
MULCHNKS bitfield mask; /* multiple chunks 
FRSTCHNK bitfield mask; /* first chunk 
LSTCHK bitfield mask; /* Last chunk 
NULL bitfield mask; /* null entry 
end TYPE BITS; 
end TYPE_OVERLAY; 
CEHLEN byte unsigned; /* header length ; 
PRVOFF word unsigned; /* offset previous entry in its bucket 
for RU jnls: otvecs prewteus entry by 
2 Same 
PRVVBN Longword unsigned; /* VBN of bucket with previous entry 
/* for RU jnls: VBN previous entry by 
/* same RU 
SEQNO Longword unsigned; /* sequence number 
LSEQNO Longword unsigned; ; /* local sequence number 
constant ‘‘LENGTH’’ equals . prefix CEH$ tag K; /* Length of structure 
constant ‘LENGTH’ equals . prefix CEH$ tag C; /* Length of structure 


end CEHDEF; 
end_module SCEHDEF ; 
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module SCHUNKDEF ; 
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/t 
a CHUNK HEADER = header of a chunk (not the first chunk of an entry) 
/* An entry is broken up in chunks if it doesn't fit in one bucket 
/* or if it is an RUjnl entry that doesn't fit between two valid entries 
/* The first chunk gets the regular preamble/control entry header, in 
/* which the type field specifies that it is the first of multiple 
oe chunks. Subsequent chunks get the chunk header 
. The fields in the CHUNK structure are in the same position as for preambles 
. This header MUST always have an even Length 
® 
[t-- 


aggregate CHUNKDEF structure prefix CHUNKS; 


/e 


N word unsigned; 
LEN2 word uns 


YPE byte unsigned; 

TYPE_BITS structure fill; 
OSER bit 

CON 


f 

eld mask; 

NULL d ; 
end TYPE BITS; 

end TYPE_OVERLAY; 

LEN byte unsigned; 

PRVOFF word unsigned; 


PRVVBN Longword unsigned; 


SEQNO Longword unsigned; 
LSEQNO Longword unsigned; 
CHTYPE byte unsigned; ‘ - 
SPARE byte unsigned dimension 3 fill; 
SPARE byte unsigned dimension 3 tag B; 
RIDVAL quadword unsigned dimension 2; 
constant ‘LENGTH’ equals . prefix CHUNKS tag K; 
constant ‘LENGTH’ equals . prefix CHUNK$ tag C; 


end CHUNKDEF ; 
end_module SCHUNKDEF ; 


total Length entry - this word 
second word of length; for tapes ony 


record type to indicate user reocrd 


user entry 
control entry 
multiple chunks 
first chunk 
Last chunk 

null entry 


header length 
offset previous chunk in its bucket 
for RU jnls: offset previous chunk by 
same RU 
VBN of bucket with previous chunk 
for RU jnls: VBN previous chunk by 
same RU 
sequence number of entr 
local sequence number of entry 
to indicate that this is a chunk header 
spare bytes 
spare bytes 
RU ID 
Length of structure 
length of structure 


Se a 


JNLFILE.SDL;1 


module SUTEDEF; 


{eee 


/* 
/*U 
* 


aggr 


end 
end 


TE = UIC table entry 


Tne following defines the UIC tabie record format 


egate. UTEDEF structure prefix UTES; 
RECSIZ_OVERLAY union 4. As 
CS1Z word unsign 


VERSION word GVERLAY) ed; 
constant VERSION equals 1 prefix UTE tag $C; 
UIC_OVERLAY union fill; 
UIC Longword uns igne d; 
VIC_FIELDS structure fill; 
“VIC_MBM word unsigned; 
UIC"GRP word unsigned; 
end UIC"FIELDS; 
end UIC_OVERLAY; 
JNLNAM_OVERLAY union fill; 
JNLNAM character Length 13; 
JNLNAMLEN ERUAY: unsigned; 


JNLTYP byte alan 

FILL_1 word fill oe UTEDEF tag $$; 
FLAGS Longword unsigned; 

ENTTIME quadword unsigned; 

CRETIME queguore, unsigned; 


constant “‘LENGTH'’ equals . prefix UTES tag K; 
constant ‘LENGTH’ equals . ecg? te UTES tag C; 
constant BLKSIZ equals 512 prefix UTE tag $C; 
Constant MAXREC equals 512 prefix UTE tag $C; 


module SUTEDEF; 
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Variable Length record length 


record type to indicate UTE 
filler 


record version ! field 
Record version ! constant 


uic for journal device 


UIC member number 
UIC group number 


journal name (counted ASCII) 
Journal name Length subfield 


journal type 


flag Longword 

Time entry was made 

Time UIC table file was first created 
length of structure 

length of structure 

UIC table block size 

Maximum record size 


GD «ans 2n6 ee ane ow 6 oe 0 oe 0 oe 0 oe ne os eo oo eh eh ee eee eee 


of a 
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module SNTEDEF ; 


15 
16-SEP-1984 16:40:19,080 Page 18 


Jee 

7 

Ao NTE = Name table entry 

fo The following defines the Name table record format. 

/* A close approximation of this format is used to describe journals 

/* created remotly in a cluster to which no channel assignments have 

/* ever been made on this node. Should a channel assignment ever occur, 
/* this node would become a slave node for the journal. Such entries are 
. hung off of the CRB for each journal type in a singly Linked List. 
[too 


#INLNAMSIZ = 12; 


CRETIME quadword unsigned: 
UIC_OVERLAY union fiil; 


d 
JNLNAM_OVERLAY union fill; 
JNCNAMLEN byte unsigned; 
JNLNAM character Length #JNLNAMSIZ+1; 
end JNLNAM_OVERLAY; 


SPARE 3 byte fill; 

ENTTIME quaduord unsigned; 

ACPNAM_OVERLAY union fill; 
ACPNAMLEN byte unsigned; 
ACPNAM character length 16; 

end ACPNAM_OVERLAY; 

constant FIXEDLEN equals .; 

constant FIXEDLEN equals . tag C; 

constant BLKSI2 equals 318 tag C: 

constant MAXREC equals 512 tag C; 

end NTEDEF; 


end_module $NTEDEF; 


Variable length record length 
record version field 

Record version constant 

Time name table file first created 
uic for journal device 

UIC member number 

UIC group number 

flag Longword 


journal name Length subfield 
lcoreak name (counted ASCII) 


Journal device protection 
Journal device access mode 
Device for journal files 
Number of device name strings 
journal type 

Time entry was made 


ACP name Length subfield 


Jrenl ACP process name (counted ASCII) 


fixed header Length 
fixed header length 
name table block size 
Maximum record size 


“ee 


er ee oa in Oe | Bake 
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module SFOFDEF; 


/ro+ 
/* 
A FOF = File open flags 
® 
/* The following flag definitions will be used by the open 
/* routine to determine what action to take. These be 
/* were previously part of the UTE structure but since they 
/* are now also needed by name table routines they have been 
/* moved. 
/* 
[t-- 
overegete FOFDEF union prefix FOFS; 
FOFDEF BITS structure fill; 
FICL.1 bitfield fill prefix FOFDEF tag $$; 
CREATE bitfield mask; /* Create new file 
READ bitfield mask; /* Read access me 
NOREAD bitfield mask; /* Do not allow others read access 
RITE bitfield mask; /* Open with write lock 
NAMTBL bitfield mask; /* Perform name table open instead 


/* of UIC table 
end FOFDEF_BITS; 
end FOFDEF; 


end_module $FOFDEF; 


. — 


ssn 
ee ee ee ee ee te tet ee Te Te te ee 


- 
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| J 
module SDCJLDEF ; ; 
/eoe i 
/* : 
“ DISK CURRENT JAB LIST = List of current JABs for disk journal : 

* . 
je : 
/* When a new version of a file is created a List of all JABs : 
/* is written out to the journal file. This allows us to continue : 
/* to write entries for existing channels to the journal, so : 
Ao on reading we don't need to get JABs from the previous version. ; 

® * 
[t-- m 


aggregate DCJLDEF structure prefix DCJL$; 
STRUCT byte unsigned; /* structure type field 
SPARE1 byte unsigned; /* spare 
NUM word unsigned; /* number of JABS 
constant ‘'FIXED_LEN' equals . prefix DCJL$ tag K; /* fixed Length portion of structure 
- sonetens “FIXED_LEN" equals . prefix DCJL$ tag C; /* fixed Length portion of structure 
en b 


end_module SDCJLDEF; 


7. cinsmeniiniaiininenn 
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module SCJLDEF; 
{e+ 


/* 

“ CJL = Current JAB List (for tapes) 

/* An CJL is written when the tape is mounted again, or next reel is 

/* mounted. This entry contains a full List of all JABs for all journals 


a going to this tape group 


[t-- 


aggregate CJLDEF structure fill prefix CJL$; 


ongword unsigned; /* Length (in ASCII) 

FILL.1 longword fill prefix CJLDEF tag $$; /* spare 

TSIZE word uns igned; /* entry size 

STRUCT byte unsigned; /* structure type 

FILL 2 byte fill prefix CJLDEF tag $$; /* spare 

SECTIONS word unsigned; . —- of pieces this entry is broken 
* up in 

SECNUM word unsigned; /* section number for this section 

constant FIXED_LEN equals . prefix CJL$ tag K; /* end of fixed length portion 

constant FIXED_LEN equals . prefix CJLS tag C; /* end of fixed Length portion 


/* (1 based) 
end CJLDEF; 


end_module SCJLDEF; 


- 


F 
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module SOPTDEF; 
{aoe 


/* 
os OPT = Open tape entry 
* 
Aa An open-tape entry is written when the tape is mounted again. 
J 


/t-- 


aggregate OPTDEF teh pant fill prefix OPTS; 


N - word unsi wre /* Length (in ASCII) 
FILL1 ere f b pretix OPTDEF tag $$; /* spare 
TSIZE word unsi si. : /* entry size 
fire. byte uns /* structure type 
FILL_2 byte fill i OPTDEF tag $$; /* spare 
TIME ~quadword unsigned; /* time 
constant “‘LENGTH" Seuals - prefix OPTS tag ci: /* end of fixed Length portion 
constant LENGTH’ equals . prefix OPT$ tag C; /* end of fixed length portion 


end OPTDEF; 
end_module SOPTDEF; 
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module SRHDDEF; 
{eee 
to RHD = Reel header 
/* A reel header is written to the start of each reel 


/* A new reel may first get a few buffers that were still being written 
/* to the previous reel while EOT was passed. 


aggregate RHDDEF structure fill prefix RHD$; 


ongword unsigned; /* Length (ASCII) 
JNLID Longword unsigned; /* journal ID 
TSIZE wor anetqress /* entry size 
STRUCT byte unsigned; /* structure type 
FILL_1 byte fill prefix RHDDEF tag $$; /* spare 
COPIES word unsigned; /* total number in group 
NUMBER word unsigned; /* number of this copy in group 
REELNUM Longword unsigned: /* number of reel in volume set 
UIC_longword unsigned; /* UIC of owner of group 
PROT word une tere $ /* protection mask for group 
FILL_2 word fill prefix RHDDEF tag $$; /* spare 


MAX_JNLS word unsigne 
TYPES OVERLAY union fill; 
TYPES word unsigned; /* journal types allowed on tape 
nwes pile ecrusturs fill; 
eld mask; 


/* maximum number of journals allowed 


GRPNAM character Length 13; ; vi /* group name (counted ASCII) 
FILL_3 aye dimension 3 fill prefix RHDDEF tag $$; /* spare 
STATOS_OVERLAY union fill; 


STATUS sergvere unsigned /* status 
STATUS BITS structure fill; eee : 
POOL bitfield mask; /* a spool file is used for this group. 

end STATUS BITS; 
end STATUS_OVERLAY; : ; 
INITTIME quadword unsigned; /* time at which tape reel was first written 
constant “LENGTH'’ equals . prefix RHD$ tag K; /* end of fixed length portion 
constant "‘LENGTH’’ equals . prefix RHD$ tag C; /* end of fixed length portion 


end RHDDEF ; 
end_module SRHDDEF ; 


ce 


ee Ee EEO OO ee ee ee 
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